home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_d / mdboutln.zip / ABOUT.PAS < prev    next >
Pascal/Delphi Source File  |  1995-11-12  |  979b  |  54 lines

  1. unit About;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ExtCtrls;
  7.  
  8. type
  9.   TfrmAboutBox = class(TForm)
  10.     pnlPanel1: TPanel;
  11.     btnbitOK: TBitBtn;
  12.     lblComments: TLabel;
  13.     imgImage: TImage;
  14.     lblLabel1: TLabel;
  15.     pnlPanel2: TPanel;
  16.     lblLabel3: TLabel;
  17.     lblLabel4: TLabel;
  18.     lblLabel6: TLabel;
  19.     lblLabel7: TLabel;
  20.     lblLabel8: TLabel;
  21.     imgImage2: TImage;
  22.     procedure btnbitOKClick(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   frmAboutBox: TfrmAboutBox;
  31.   boolSecondClick: boolean;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TfrmAboutBox.btnbitOKClick(Sender: TObject);
  38. begin
  39. if boolSecondClick then
  40.   begin
  41.     boolSecondClick := false;
  42.     pnlPanel2.Visible := false;
  43.     Modalresult := mrOK
  44.   end
  45. else
  46.   begin
  47.     boolSecondClick := true;
  48.     pnlPanel2.Visible := true;
  49.   end;
  50. end;
  51.  
  52. end.
  53.  
  54.